10 DEF SEG:C=&8000:FOR A=C TO C+42:READ A$:POKE A,VAL("&H"+A$):NEXT:CALL C:P=PEEK(&8230):IF P=255 THEN PRINT "Erreur d'acces au disque." ELSE PRINT "Disque:";P MOD 2+1;" face(s):   ";INT(P/3)+8;" secteurs par piste."
20 DATAB9,03,00,51,BB,30,80,BA,00,00,B9,02,00,B0,01,B4,02,CD,13,59,73,0C,B4,00,CD,13,E2,E7,B0,FF,A2,30,82,CB,A0,30,80,F6,D8,A2,30,82,CB